home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 121 / Tiger_Disk_121_20xx_Tiger-Crew-Disk_de_Side_B.d64 / pokeless sprites (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  50 lines
  1. 10 ifpeek(816)=165andpeek(817)=244then30
  2. 20 print"[147] kill cartridge ! ":end
  3. 30 poke53280,0:poke53281,0:print"[147][142]";
  4. 40 print"[155][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  5. 50 print"[152]     tiger-disk praesentiert     "
  6. 60 print"[151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  7. 70 print"[129]                            "
  8. 80 print" Q                        Q "
  9. 90 print"      p o k e l e s s       "
  10. 100 print" Q                        Q "
  11. 110 print"       s p r i t e s        "
  12. 120 print" [209] ---------------------- [209] "
  13. 130 print"                            "
  14. 140 print" [209]     p%(0)=11           [209] "
  15. 150 print"       c%(0)= 7             "
  16. 160 print" [209]     x%(0)= 0-255       [209] "
  17. 170 print"       y%(0)= 0-255         "
  18. 180 print" [209]     e%(0)= 1           [209] "
  19. 190 print"       h%(0)= 1             "
  20. 200 print" [209]     v%(0)= 1           [209] "
  21. 210 print"       b%(0)= 1/0           "
  22. 220 print" [209]                        [209] "
  23. 230 print"   starten mit  s p a c e   "
  24. 240 print" [209]   oder   r e t u r n   [209] "
  25. 250 print"       zum abbrechen!       "
  26. 260 print" [209]                        [209] "
  27. 270 print"                            ":gosub330
  28. 280 geta$:ifa$<>chr$(13)anda$<>" "then280
  29. 290 ifa$=" "then310
  30. 300 end
  31. 310 poke147,0:sys57812"pokeless.o",8,1:sys62631
  32. 320 sys52850:gosub440:goto390
  33. 330 forn=0to62:readq:poke704+n,q:next:return
  34. 340 data250,247,190,34,132,34,34,132,34,34,183,190
  35. 350 data34,148,40,34,148,36,34,247,162,0,0,0,0,0,0
  36. 360 data0,252,0,0,252,0,0,0,0,0,0,0,251,239,65
  37. 370 data130,40,65,130,40,65,131,239,34,130,136,42
  38. 380 data130,72,42,250,47,54,0,0,0
  39. 390 p%(0)=11:c%(0)=7:e%(0)=1:h%(0)=1:v%(0)=1:b%(0)=1
  40. 400 forx=0to255:x%(0)=x:y%(0)=x:next
  41. 410 geta$:ifa$<>" "then400
  42. 420 ab=ab+1:ifab=1thenb%(0)=0:gosub470:goto400
  43. 430 e%(0)=0:print"[145]":end
  44. 440 print"[145][145][145][145][145]    space  = prioritaet     "
  45. 450 print" [209]        aendern!        [209] "
  46. 460 print"                            ":return
  47. 470 print"[145][145][145]                            "
  48. 480 print" [209]  s p a c e  = beenden! [209] "
  49. 490 print"                            ":return
  50.